home *** CD-ROM | disk | FTP | other *** search
/ Super CD / Super CD.iso / geomitri / rcd / rcdesign.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-06-10  |  14.9 KB  |  392 lines
  1. 5  '      THIS PROGRAMME IS SAVED UNDER THE NAME   [ RCDESIGN ]
  2. 6  '     -------------------------------------------------------
  3. 10  SCREEN 0,1:KEY OFF :WIDTH 40:COLOR 15,1,1:CLS
  4. 15  LOCATE 5,3:PRINT " ********************************** "
  5. 20  LOCATE 6,3:PRINT " *   AMJAD J. EL-SHAIR            * "
  6. 25  LOCATE 7,3:PRINT " *                                * "
  7. 30  LOCATE 8,3:PRINT " *   PRESENTS  :                  * "
  8. 35  LOCATE 9,3:PRINT " *                                * "
  9. 40  LOCATE 10,3:PRINT " *   REINFORCED CONCRETE DESIGN   * "
  10. 45  LOCATE 11,3:PRINT " ********************************** "
  11. 50  COLOR 15,0
  12. 55  COLOR 4,4 :LOCATE 4,4:PRINT "                                  ";
  13. 60  COLOR 4,4 :LOCATE 12,4:PRINT "                                  ";
  14. 65  FOR I=1 TO 15
  15. 70  COLOR 15,I
  16. 75  FOR Z=0 TO 33
  17. 80  LOCATE 4,4+Z:PRINT " ";
  18. 85  LOCATE 12,4+Z:PRINT " ";
  19. 90  FOR II=1 TO 10
  20. 95  NEXT II
  21. 100  NEXT Z
  22. 105  NEXT I
  23. 110  COLOR 15,4
  24. 115  FOR Z=0 TO 33
  25. 120  LOCATE 4,4+Z:PRINT " ";
  26. 125  LOCATE 12,4+Z:PRINT " ";
  27. 130  FOR II=1 TO 10
  28. 135  NEXT II
  29. 140  NEXT Z
  30. 145  COLOR 0,7
  31. 190  PRINT :PRINT :PRINT
  32. 195  LOCATE ,4 :PRINT "   CURRENT TIME  :    "TIME$;"    "
  33. 200  PRINT
  34. 205  LOCATE ,4 :PRINT "   CURRENT DATE  :    "DATE$;"  "
  35. 210  LOCATE 24,4
  36. 215  PRINT " Press  SPACE BAR  to continue ...";
  37. 220  IF INKEY$<>" " THEN 220
  38. 230  WIDTH 40 :COLOR 15,1,0 :CLS :PRINT :COLOR 0,6
  39. 232  LOCATE 2,2 :PRINT "*************************************"TAB(79)"*"
  40. 235  LOCATE ,2 :PRINT "*"TAB(79)"*"
  41. 238  LOCATE ,2 :PRINT "*    REINFORCED CONCRETE DESIGN     "TAB(79)"*"
  42. 240  LOCATE ,2 :PRINT "*"TAB(79)"*"
  43. 241  LOCATE ,2 :PRINT "*        RCDESIGN V 3.0ACIL  "TAB(79)"*"
  44. 242  LOCATE ,2 :PRINT "*"TAB(79)"*"
  45. 244  LOCATE ,2 :PRINT "*   <RCDESIGN>  IS CAPABLE OF DOING "TAB(79)"*"
  46. 245  LOCATE ,2 :PRINT "* THE STRUCTURAL ANALYSIS , AND THE "TAB(79)"*"
  47. 248  LOCATE ,2 :PRINT "* REINFORCED CONCRETE DESIGN DUE TO "TAB(79)"*"
  48. 250  LOCATE ,2 :PRINT "* FLEXURAL AND SHEAR STRESSES , FOR "TAB(79)"*"
  49. 252  LOCATE ,2 :PRINT "* THE INDIVIDUAL ELEMENTS OF A BUI- "TAB(79)"*"
  50. 255  LOCATE ,2 :PRINT "* LDING STRUCTURE ,SUCH  AS :       "TAB(79)"*"
  51. 258  LOCATE ,2 :PRINT "* RIBBED SLABS, BEAMS, COLUMNS AND  "TAB(79)"*"
  52. 260  LOCATE ,2 :PRINT "* FOOTINGS.                         "TAB(79)"*"
  53. 274  LOCATE ,2 :PRINT "*"TAB(79)"*"
  54. 276  LOCATE ,2 :PRINT "* BASED ON THE REQUIREMENTS OF THE :"TAB(79)"*"
  55. 278  LOCATE ,2 :PRINT "*"TAB(79)"*"
  56. 280  LOCATE ,2 :PRINT "*          ACI CODE  1983 "TAB(79)"*"
  57. 282  LOCATE ,2 :PRINT "*"TAB(79)"*"
  58. 284  LOCATE ,2 :PRINT "*************************************"TAB(79)"*"
  59. 286  LOCATE 24,4
  60. 288  PRINT " Press  SPACE BAR  to continue ...";
  61. 300  IF INKEY$<>" " THEN 300
  62. 310  CLS :WIDTH 80 :COLOR 15,1 :PRINT :COLOR 0,6
  63. 320  LOCATE 1,8 :PRINT "****************************************************************"TAB(72)"*"
  64. 330  LOCATE ,8 :PRINT "*                      R C D E S I G N     "TAB(72)"*"
  65. 340  LOCATE ,8 :PRINT "*"TAB(72)"*"
  66. 350  LOCATE ,8 :PRINT "*             Version 3.0ACIF  *  June  1, 1989    "TAB(72)"*"
  67. 360  LOCATE ,8 :PRINT "*                         prepared by :"TAB(72)"*"
  68. 370  LOCATE ,8 :PRINT "*                     AMJAD JAMIL EL-SHAIR  "TAB(72)"*"
  69. 380  LOCATE ,8 :PRINT "*                M.E. STRUCTURAL ENGINEERING  "TAB(72)"*"
  70. 390  LOCATE ,8 :PRINT "*"TAB(72)"*"
  71. 400  LOCATE ,8 :PRINT "*    This copy of RCDESIGN is to be used by the staff of : "TAB(72)"*"
  72. 405  LOCATE ,8 :PRINT "*"TAB(72)"*"
  73. 410  LOCATE ,8 :PRINT "*           Arabian Consulting Engineering Services  "TAB(72)"*"
  74. 412  LOCATE ,8 :PRINT "*           Riyadh          -          Saudi Arabia  "TAB(72)"*"
  75. 415  LOCATE ,8 :PRINT "*"TAB(72)"*"
  76. 420  LOCATE ,8 :PRINT "*       The use of unauthorized copies of  RCDESIGN  is "TAB(72)"*"
  77. 425  LOCATE ,8 :PRINT "*         considered to be unprofessional and illegal"TAB(72)"*"
  78. 430  LOCATE ,8 :PRINT "*       For inquieries and updated versions please call :     "TAB(72)"*"
  79. 435  LOCATE ,8 :PRINT "*"TAB(72)"*"
  80. 440  LOCATE ,8 :PRINT "*                   Amjad Jamil EL-Sha'ir     "TAB(72)"*"
  81. 450  'LOCATE ,8 :PRINT "*                      P.O.Box 926447        "TAB(72)"*"
  82. 455  'LOCATE ,8 :PRINT "*"TAB(72)"*"
  83. 460  LOCATE ,8 :PRINT "*              P.O.Box 926447   Amman - Jordan"TAB(72)"*"
  84. 465  LOCATE ,8 :PRINT "*"TAB(72)"*"
  85. 470  LOCATE ,8 :PRINT "* THE USER IS RESPONSIBLE FOR ALL RESULTS PRODUCED BY RCDESIGN"TAB(72)"*"
  86. 475  LOCATE ,8 :PRINT "*"TAB(72)"*"
  87. 510  LOCATE ,8 :PRINT "****************************************************************"TAB(72)"*"
  88. 520  LOCATE 25,10
  89. 530  PRINT "              Press  SPACE BAR  to continue ..."TAB(70)"";
  90. 540  IF INKEY$<>" " THEN 540
  91. 550  'WIDTH 80 :COLOR 15,1,0 :CLS :LOCATE 2
  92. 560  'PRINT "          ***************   PRINTER  INITIATION   *****************"
  93. 570  'PRINT
  94. 580  'PRINT "        THIS PROGRAMME DRAWS SOME CHARACTERS THAT WILL BE USED IN PRINTING "
  95. 590  'PRINT "        THE DESIGN AND ANALYSIS RESULTS "
  96. 600  'PRINT
  97. 610  'PRINT "        PLEASE RESPOND CAREFULLY TO THE FOLLOWING QUESTIONS"
  98. 620  'PRINT
  99. 630  'COLOR 0,7
  100. 640  'PRINT "                IS YOUR PRINTER SWITCHED  ON      ? (Y/N) "TAB(80)""
  101. 650  'PRINT "             ( ENTER [ N ] IF NO PRINTER CONNECTED )                     ";
  102. 660  'Y$=INKEY$ :IF Y$<>"Y" AND Y$<>"y" AND Y$<>"N" AND Y$<>"n" THEN 660
  103. 670  'IF Y$="Y" OR Y$="y" THEN PRINT "  YES"TAB(80)"" :GOSUB 3000 :GOTO 750
  104. 680  'IF Y$="N" OR Y$="n" THEN PRINT "  NO "TAB(80)""
  105. 690  'PRINT
  106. 700  'PRINT "      IF YOU WANT TO SWITCH YOUR PRINTER  ON DO IT NOW THEN ENTER  [ Y ] "TAB(80)""
  107. 710  'PRINT "                                                     IF NOT ENTER  [ N ] ";
  108. 720  'Y$=INKEY$ :IF Y$<>"Y" AND Y$<>"y" AND Y$<>"N" AND Y$<>"n" THEN 720
  109. 730  'IF Y$="Y" OR Y$="y" THEN PRINT "  YES"TAB(80)"" :GOSUB 3000 :GOTO 750
  110. 740  'IF Y$="N" OR Y$="n" THEN PRINT "  NO "TAB(80)""
  111. 750  'COLOR 15,1 :PRINT
  112. 760  'PRINT "   **************************************************************************"
  113. 770  'PRINT "   *                         CAREFULLY  NOTICE                              *"
  114. 780  'PRINT "   *"TAB(77)"*"
  115. 790  'PRINT "   *   WHEN EVER YOU SWITCH YOUR PRINTER ON IF IT WAS OFF DURING YOUR WORK  *      *   YOU SHOULD RETURN TO THE RCDESIGN MAIN MENU , THEN ENTER  [ I ] TO   *      *   GO TO PRINTER INITIATION                                             * "
  116. 800  'PRINT "   **************************************************************************"
  117. 810  'LOCATE 24
  118. 820  'PRINT "                  PRESS  SPACE  BAR  TO  CONTINUE .... "TAB(79)"";
  119. 830  'IF INKEY$<>" " THEN 830
  120. 840  WIDTH 80 :COLOR 15,1,0 :CLS :LOCATE 2,20
  121. 850  PRINT "***   REINFORCED CONCRETE DESIGN   ***"
  122. 860  PRINT :PRINT :PRINT
  123. 870  PRINT "     THE BASIC DATA ENTRY FOR THE LATEST DESIGN MADE USING THIS PROGRAMME            WILL BE DISPLAYED TO YOU , IF NEW DATA IS TO BE USED INSTEAD ;                  ENTER THAT DATA WHEN YOU ARE ASKED TO . "
  124. 880  PRINT "     IF YOU WILL CONTINUE USING THE SAME DATA DISPLAYED ; JUST PRESS                 [ Cr ] WITHOUT ANY DATA WHEN YOU ARE ASKED TO ENTER THE NEW DATA"
  125. 890  OPEN "DATA1"FOR INPUT AS #1
  126. 900  IF EOF(1) THEN CLOSE :GOTO 930
  127. 910  INPUT #1,PRJ$,BLD$,DSR$,FC,FY,FYS,QA
  128. 920  GOTO 900
  129. 930  PRINT :PRINT
  130. 940  PRINT "    LATEST PROJECT NAME   :      ";PRJ$
  131. 950  PRINT
  132. 960  PRINT "    NEW PROJECT NAME             "
  133. 970  INPUT "    ( Max. 29 characters) :      ",DXT$
  134. 980  IF LEN(DXT$)>0 AND LEN(DXT$)<30 THEN PRJ$=DXT$ :GOTO 1050
  135. 990  IF DXT$="" GOTO 1050
  136. 1000  PRINT :LOCATE ,10 :COLOR ,4 :BEEP
  137. 1010  PRINT "            INVALED NAME OF PROJECT               "
  138. 1020  COLOR ,1 :PRINT
  139. 1030  PRINT "          ( Max. 29 Characters including spaces   "
  140. 1040  PRINT :GOTO 940
  141. 1050  PRINT :PRINT
  142. 1060  PRINT "    LATEST BUILDING NAME   :      ";BLD$
  143. 1070  PRINT
  144. 1080  PRINT "    NEW BUILDING NAME             "
  145. 1090  INPUT "    ( Max. 40 characters)  :      ",DXB$
  146. 1100  IF LEN(DXB$)>0 AND LEN(DXB$)<41 THEN BLD$=DXB$ :GOTO 1170
  147. 1110  IF DXB$="" GOTO 1170
  148. 1120  PRINT :LOCATE ,10 :COLOR ,4 :BEEP
  149. 1130  PRINT "            INVALED NAME OF BUILDING              "
  150. 1140  COLOR ,1 :PRINT
  151. 1150  PRINT "          ( Max. 40 Characters including spaces   "
  152. 1160  PRINT :GOTO 1060
  153. 1170  PRINT :PRINT
  154. 1180  PRINT "    LATEST DESIGNER NAME   :      ";DSR$
  155. 1190  PRINT
  156. 1200  PRINT "    NEW DESIGNER NAME             "
  157. 1210  INPUT "    ( Max. 12 characters)  :      ",DXR$
  158. 1220  IF LEN(DXR$)>0 AND LEN(DXR$)<13 THEN DSR$=DXR$ :GOTO 1290
  159. 1230  IF DXR$="" GOTO 1290
  160. 1240  PRINT :LOCATE ,10 :COLOR ,4 :BEEP
  161. 1250  PRINT "            INVALED NAME OF DESIGNER              "
  162. 1260  COLOR ,1 :PRINT
  163. 1270  PRINT "          ( Max. 12 Characters including spaces   "
  164. 1280  PRINT :GOTO 1180
  165. 1290  PRINT :PRINT
  166. 1300  PRINT "    CONCRETE CRUSHING STRENGTH USED :  f'c ="FC"kg/cm2"
  167. 1310  PRINT
  168. 1320  INPUT "    ENTER NEW   f'c   IF DIFFERENT  : ",DX1
  169. 1330  IF DX1>125 AND DX1<300 THEN FC=DX1 :GOTO 1400
  170. 1340  IF DX1=0 GOTO 1400
  171. 1350  PRINT :LOCATE ,10 :COLOR ,4 :BEEP
  172. 1360  PRINT "  INVALED CONCRETE CRUSHING STRENGTH  f'c    "
  173. 1370  COLOR ,1 :PRINT
  174. 1380  PRINT "          ( f'c  SHOULD BE IN THE RANGE  125 - 300  kg/cm2 )"
  175. 1390  PRINT :GOTO 1300
  176. 1400  PRINT :PRINT
  177. 1410  PRINT "    REINF' STEEL YIELD STRESS USED  "
  178. 1420  PRINT "            FOR MAIN REINFORCEMENT  :  fy  ="FY"kg/cm2"
  179. 1430  PRINT
  180. 1440  INPUT "    ENTER NEW   fy    IF DIFFERENT  : ",DX2
  181. 1450  IF DX2>=2800 AND DX2<=5000 THEN FY=DX2 :GOTO 1520
  182. 1460  IF DX2=0 GOTO 1520
  183. 1470  PRINT :LOCATE ,10 :COLOR ,4 :BEEP
  184. 1480  PRINT "  INVALED  REINF' STEEL YIELD STRESS  fy     "
  185. 1490  COLOR ,1 :PRINT
  186. 1500  PRINT "          ( fy   SHOULD BE IN THE RANGE  2800 - 5000  kg/cm2 )"
  187. 1510  PRINT :GOTO 1410
  188. 1520  PRINT :PRINT
  189. 1530  PRINT "    REINF' STEEL YIELD STRESS USED  "
  190. 1540  PRINT "      FOR SHEAR REINF'  (STIRRUPS)  :  fy  ="FYS"kg/cm2"
  191. 1550  PRINT
  192. 1560  INPUT "    ENTER NEW   fy    IF DIFFERENT  : ",DX4
  193. 1570  IF DX4>=2400 AND DX4<=5000 THEN FYS=DX4 :GOTO 1640
  194. 1580  IF DX4=0 GOTO 1640
  195. 1590  PRINT :LOCATE ,10 :COLOR ,4 :BEEP
  196. 1600  PRINT "  INVALED   STIRRUPS    YIELD STRESS  fy     "
  197. 1610  COLOR ,1 :PRINT
  198. 1620  PRINT "          ( fy   SHOULD BE IN THE RANGE  2400 - 4200  kg/cm2 )"
  199. 1630  PRINT :GOTO 1530
  200. 1640  PRINT :PRINT
  201. 1650  PRINT "    ALLOWABLE SOIL BEARING CAPACITY USED : q (all.) ="QA"kg/cm2"
  202. 1660  PRINT
  203. 1670  INPUT "    ENTER NEW   Q (all.)  IF DIFFERENT   : ",DX3
  204. 1680  IF DX3>0.5 AND DX3<5 THEN QA=DX3 :GOTO 1750
  205. 1690  IF DX3=0 GOTO 1750
  206. 1700  PRINT :LOCATE ,10 :COLOR ,4 :BEEP
  207. 1710  PRINT "  INVALED  ALLOWABLE SOIL BEARING CAPACITY  Q(all) "
  208. 1720  COLOR ,1 :PRINT
  209. 1730  PRINT "          ( Q(all)  SHOULD BE IN THE RANGE  0.50 - 5.00  kg/cm2 )"
  210. 1740  PRINT :GOTO 1650
  211. 1750  CLS :LOCATE 2,18
  212. 1760  PRINT "***   REINFORCED CONCRETE DESIGN   ***"
  213. 1770  PRINT
  214. 1780  LOCATE ,18
  215. 1790  PRINT "************* BASIC DATA *************"
  216. 1800  PRINT
  217. 1810  PPL=36-LEN(PRJ$)/2
  218. 1820  LOCATE ,PPL
  219. 1830  PRINT PRJ$
  220. 1840  PRINT
  221. 1850  IF BLD$="" GOTO 1890
  222. 1860  PPB=36-LEN(BLD$)/2
  223. 1870  LOCATE ,PPB
  224. 1880  PRINT BLD$
  225. 1890  LOCATE ,PPL-1
  226. 1900  PRINT STRING$(LEN(PRJ$)+2,196)
  227. 1910  PRINT
  228. 1920  PPY=30-LEN(DSR$)/2
  229. 1930  LOCATE ,PPY
  230. 1940  PRINT "DESIGN BY : "DSR$
  231. 1950  PRINT
  232. 1960  PRINT "    CONCRETE CRUSHING STRENGTH USED      :     f'c     ="FC"kg/cm2"
  233. 1970  PRINT
  234. 1980  PRINT "    REINF'  STEEL YIELD STRESS USED      "
  235. 1990  PRINT "             FOR MAIN REINFORCEMENT      :      fy     ="FY"kg/cm2"
  236. 2000  PRINT "        FOR SHEAR REINF' (STIRRUPS)      :      fy     ="FYS"kg/cm2"
  237. 2010  PRINT
  238. 2020  PRINT "    ALLOWABLE SOIL BEARING CAPACITY USED :    q (all)  ="QA"kg/cm2"
  239. 2030  PRINT
  240. 2040  LOCATE 22,10
  241. 2050  PRINT "    DO YOU WANT TO CHANGE THE DATA ABOVE  ? (Y/N) ";
  242. 2060  Y$=INKEY$ :IF Y$<>"Y" AND Y$<>"y" AND Y$<>"N" AND Y$<>"n" THEN 2060
  243. 2070  IF Y$="Y" OR Y$="y" THEN PRINT "  YES" :GOTO 930
  244. 2080  IF Y$="N" OR Y$="n" THEN PRINT "  NO "
  245. 2090  PRINT
  246. 2100  PRINT "              [  The latest BASIC DATA entry will be saved  ]"
  247. 2110  OPEN "DATA1" FOR OUTPUT AS #1
  248. 2120  WRITE #1,PRJ$,BLD$,DSR$,FC,FY,FYS,QA
  249. 2130  CLOSE
  250. 2140  PRINT "              [ Then  RCDESIGN  main menu will be displayed ]"
  251. 2150  FOR I=1 TO 3000 :NEXT
  252. 2500  '----------------- DISPLAY  RCDESIGN MAIN MENU ---------------------------
  253. 2510  CLS :KEY OFF :COLOR 15,1 :LOCATE 25,4
  254. 2520  'PRINT " ENTER  [ I ] FOR PRINTER INITIATION   -   ENTER  [ T ]  TO EXIT TO DOS"
  255. 2530  PRINT "  ENTER  [ T ]  TO EXIT TO DOS   ................ >>>>"
  256. 2540  COLOR 0,6 :LOCATE 2,1
  257. 2545  LOCATE ,4 :PRINT " "TAB(75)" "
  258. 2550  LOCATE ,4 :PRINT "                 R C D E S I G N   M A I N   M E N U "TAB(75)" "
  259. 2560  LOCATE ,4 :PRINT "                ====================================="TAB(75)" "
  260. 2565  LOCATE 5,4 :PRINT " "TAB(75)" "
  261. 2570  LOCATE ,4 :PRINT "  [ D ]   -  DATA     : Check and modify the project Basic Data "TAB(75)" "
  262. 2580  LOCATE ,4 :PRINT " "TAB(75)" "
  263. 2590  LOCATE ,4 :PRINT "  [ L ]   -  RIBSLOAD : Calculate Ribbed Slab Loading           "TAB(75)" "
  264. 2600  LOCATE ,4 :PRINT " "TAB(75)" "
  265. 2610  LOCATE ,4 :PRINT "  [ R ]   -  RIBS     : Design  Single Span Ribs                "TAB(75)" "
  266. 2620  LOCATE ,4 :PRINT " "TAB(75)" "
  267. 2630  LOCATE ,4 :PRINT "  [ S ]   -  CONTRIBS : Design  Multi Span Continuous Ribs      "TAB(75)" "
  268. 2640  LOCATE ,4 :PRINT " "TAB(75)" "
  269. 2650  LOCATE ,4 :PRINT "  [ B ]   -  BEAMS    : Design  Single Span Beams               "TAB(75)" "
  270. 2660  LOCATE ,4 :PRINT " "TAB(75)" "
  271. 2670  LOCATE ,4 :PRINT "  [ C ]   -  CONTBEAM : Design  Multi Span Continuous Beams     "TAB(75)" "
  272. 2680  LOCATE ,4 :PRINT " "TAB(75)" "
  273. 2685  LOCATE ,4 :PRINT "  [ M ]   -  COLUMNS  : Design  Axialy Loaded Columns           "TAB(75)" "
  274. 2690  LOCATE ,4 :PRINT " "TAB(75)" "
  275. 2695  LOCATE ,4 :PRINT "  [ F ]   -  FOOTINGS : Design  Columns and Walls Footings      "TAB(75)" "
  276. 2700  LOCATE ,4 :PRINT " "TAB(75)" "
  277. 2710  'COLOR 0,15 :LOCATE ,4 :PRINT "  [ N ]   -  NOTES    : Print Important Design Notes                    ":COLOR 15,1
  278. 2720  'PRINT " |"TAB(78) "|"
  279. 2730  'PRINT " |   [ H ]   -  HEADING  : Print pages with only Design Sheet Heading        |"
  280. 2740  'PRINT
  281. 2750  'PRINT " |   [ V ]   -  COVER    : Print Cover Page for the  Project Design Sheets   |"
  282. 2760  'PRINT
  283. 2770  'PRINT " |   [ M ]   -  FEMOMENT : Calculate Fixed End Moments for a Beam Span       |"
  284. 2780  PRINT
  285. 2790  COLOR 15,5 :LOCATE ,4 :PRINT "  ENTER THE LETTER SHOWN IN BRACKETS TO RUN THE DESIRED OPERATION :";
  286. 2800  COLOR 15,1
  287. 2810  OPR$=INKEY$ :IF OPR$="" THEN 2810
  288. 2820  IF OPR$="" GOTO 2510
  289. 2830  IF OPR$="D" OR OPR$="d" THEN PRINT " DATA" :GOTO 840
  290. 2840  IF OPR$="L" OR OPR$="l" THEN PRINT " RIBSLOAD" :RUN"RIBSLOAD"
  291. 2850  IF OPR$="R" OR OPR$="r" THEN PRINT " RIBS" :RUN"RIBS"
  292. 2860  IF OPR$="S" OR OPR$="s" THEN PRINT " CONTRIBS" :RUN"CONTRIBS"
  293. 2870  IF OPR$="B" OR OPR$="b" THEN PRINT " BEAMS" :RUN"BEAMS"
  294. 2880  IF OPR$="C" OR OPR$="c" THEN PRINT " CONTBEAM" :RUN"CONTBEAM"
  295. 2885  IF OPR$="M" OR OPR$="m" THEN PRINT " COLUMNS " :RUN"COLUMNS"
  296. 2890  IF OPR$="F" OR OPR$="f" THEN PRINT " FOOTINGS" :RUN"FOOTINGS"
  297. 2900  'IF OPR$="O" OR OPR$="o" THEN PRINT " FEMOMENT" :RUN"FEMOMENT"
  298. 2910  'IF OPR$="N" OR OPR$="n" THEN PRINT " NOTES" :RUN"NOTES"
  299. 2920  'IF OPR$="V" OR OPR$="v" THEN PRINT " COVER" :RUN"COVER"
  300. 2930  'IF OPR$="H" OR OPR$="h" THEN PRINT " HEADING" :RUN"HEADING"
  301. 2940  IF OPR$="T" OR OPR$="t" THEN PRINT " DOS " :SYSTEM
  302. 2950  'IF OPR$="I" OR OPR$="i" THEN PRINT " PRINTER " :GOTO 550
  303. 2960  GOTO 2510
  304. 2970  END
  305. 3000  '-------------------------- SUBROUTINE to down load characters to printer
  306. 3010  LPRINT CHR$(27);":";CHR$(0);CHR$(0);CHR$(0);
  307. 3020  LPRINT CHR$(27);"%";CHR$(1);CHR$(0);
  308. 3030  'SELECT ASCII CHARACTERS
  309. 3040  LPRINT CHR$(27);"6";
  310. 3050  'SEND PATTERN FOR ASCII 160
  311. 3060  LPRINT CHR$(27);"&";CHR$(0);CHR$(160);CHR$(160);
  312. 3070  LPRINT CHR$(139);
  313. 3080  LPRINT CHR$(3);CHR$(3);CHR$(3);CHR$(3);CHR$(3);
  314. 3090  LPRINT CHR$(3);
  315. 3100  LPRINT CHR$(3);CHR$(3);CHR$(3);CHR$(3);CHR$(3);
  316. 3110  'SEND PATTERN FOR ASCII 161
  317. 3120  LPRINT CHR$(27);"&";CHR$(0);CHR$(161);CHR$(161);
  318. 3130  LPRINT CHR$(139);
  319. 3140  LPRINT CHR$(0);CHR$(0);CHR$(0);CHR$(0);CHR$(255);
  320. 3150  LPRINT CHR$(255);
  321. 3160  LPRINT CHR$(255);CHR$(0);CHR$(0);CHR$(0);CHR$(0);
  322. 3170  'SEND PATTERN FOR ASCII 134
  323. 3180  LPRINT CHR$(27);"&";CHR$(0);CHR$(134);CHR$(134);
  324. 3190  LPRINT CHR$(139);
  325. 3200  LPRINT CHR$(0);CHR$(0);CHR$(0);CHR$(0);CHR$(0);
  326. 3210  LPRINT CHR$(15);
  327. 3220  LPRINT CHR$(8);CHR$(8);CHR$(8);CHR$(8);CHR$(8);
  328. 3230  'DEFINE CHARACTERS INTO ASCII 149-159
  329. 3240  LPRINT CHR$(27);"&";CHR$(0);CHR$(149);CHR$(159);
  330. 3250  'SEND PATTERN FOR ASCII 149
  331. 3260  LPRINT CHR$(139);
  332. 3270  LPRINT CHR$(8);CHR$(8);CHR$(8);CHR$(8);CHR$(8);
  333. 3280  LPRINT CHR$(15);
  334. 3290  LPRINT CHR$(0);CHR$(0);CHR$(0);CHR$(0);CHR$(0);
  335. 3300  'SEND PATTERN FOR ASCII 150
  336. 3310  LPRINT CHR$(139);
  337. 3320  LPRINT CHR$(0);CHR$(0);CHR$(0);CHR$(0);CHR$(0);
  338. 3330  LPRINT CHR$(255);
  339. 3340  LPRINT CHR$(8);CHR$(8);CHR$(8);CHR$(8);CHR$(8);
  340. 3350  'SEND PATTERN FOR ASCII 151
  341. 3360  LPRINT CHR$(139);
  342. 3370  LPRINT CHR$(8);CHR$(8);CHR$(8);CHR$(8);CHR$(8);
  343. 3380  LPRINT CHR$(255);
  344. 3390  LPRINT CHR$(0);CHR$(0);CHR$(0);CHR$(0);CHR$(0);
  345. 3400  'SEND PATTERN FOR ASCII 152
  346. 3410  LPRINT CHR$(139);
  347. 3420  LPRINT CHR$(8);CHR$(8);CHR$(8);CHR$(8);CHR$(8);
  348. 3430  LPRINT CHR$(15);
  349. 3440  LPRINT CHR$(8);CHR$(8);CHR$(8);CHR$(8);CHR$(8);
  350. 3450  'SEND PATTERN FOR ASCII 153
  351. 3460  LPRINT CHR$(139);
  352. 3470  LPRINT CHR$(0);CHR$(0);CHR$(0);CHR$(0);CHR$(0);
  353. 3480  LPRINT CHR$(248);
  354. 3490  LPRINT CHR$(8);CHR$(8);CHR$(8);CHR$(8);CHR$(8);
  355. 3500  'SEND PATTERN FOR ASCII 154
  356. 3510  LPRINT CHR$(139);
  357. 3520  LPRINT CHR$(8);CHR$(8);CHR$(8);CHR$(8);CHR$(8);
  358. 3530  LPRINT CHR$(248);
  359. 3540  LPRINT CHR$(0);CHR$(0);CHR$(0);CHR$(0);CHR$(0);
  360. 3550  'SEND PATTERN FOR ASCII 155
  361. 3560  LPRINT CHR$(139);
  362. 3570  LPRINT CHR$(0);CHR$(0);CHR$(0);CHR$(0);CHR$(255);
  363. 3580  LPRINT CHR$(255);
  364. 3590  LPRINT CHR$(255);CHR$(0);CHR$(0);CHR$(0);CHR$(0);
  365. 3600  'SEND PATTERN FOR ASCII 156
  366. 3610  LPRINT CHR$(139);
  367. 3620  LPRINT CHR$(0);CHR$(0);CHR$(0);CHR$(0);CHR$(0);
  368. 3630  LPRINT CHR$(255);
  369. 3640  LPRINT CHR$(0);CHR$(0);CHR$(0);CHR$(0);CHR$(0);
  370. 3650  'SEND PATTERN FOR ASCII 157
  371. 3660  LPRINT CHR$(139);
  372. 3670  LPRINT CHR$(8);CHR$(8);CHR$(8);CHR$(8);CHR$(8);
  373. 3680  LPRINT CHR$(8);
  374. 3690  LPRINT CHR$(8);CHR$(8);CHR$(8);CHR$(8);CHR$(8);
  375. 3700  'SEND PATTERN FOR ASCII 158
  376. 3710  LPRINT CHR$(139);
  377. 3720  LPRINT CHR$(8);CHR$(8);CHR$(8);CHR$(8);CHR$(8);
  378. 3730  LPRINT CHR$(248);
  379. 3740  LPRINT CHR$(8);CHR$(8);CHR$(8);CHR$(8);CHR$(8);
  380. 3750  'SEND PATTERN FOR ASCII 159
  381. 3760  LPRINT CHR$(139);
  382. 3770  LPRINT CHR$(8);CHR$(8);CHR$(8);CHR$(8);CHR$(8);
  383. 3780  LPRINT CHR$(255);
  384. 3790  LPRINT CHR$(8);CHR$(8);CHR$(8);CHR$(8);CHR$(8);
  385. 3800  'SEND PATTERN FOR ASCII 162
  386. 3810  LPRINT CHR$(27);"&";CHR$(0);CHR$(162);CHR$(162);
  387. 3820  LPRINT CHR$(139);
  388. 3830  LPRINT CHR$(6);CHR$(14);CHR$(30);CHR$(62);CHR$(126);
  389. 3840  LPRINT CHR$(254);
  390. 3850  LPRINT CHR$(126);CHR$(62);CHR$(30);CHR$(14);CHR$(6);
  391. 3860  RETURN
  392.